﻿Module Module1
  Sub Main()
    Dim objAereo As New Aereo()
    Dim objElicottero As New Elicottero()
    Dim objMongolfiera As New Mongolfiera()
    Console.WriteLine(CType(objAereo,  _
        IVola).vola())
    Console.WriteLine(CType(objElicottero,  _
        IVola).vola())
    Console.WriteLine(CType(objMongolfiera,  _
        IVola).vola())
    Console.ReadLine()
  End Sub
End Module
